66问答网
所有问题
当前搜索:
Excel vba
VBA
应怎样学习?
答:
Excel
VBA
教程是把VB编程应用在Excel平台的一套实用教程,Excel +VBA双剑合壁,他可以帮助我们实现Excel原本实现不了的功能,可以让工作变得更高效,可以让操作变得变方便,可以把重复性的操作变得更有趣,随心所欲的定制自己的工作平台,还可以针对企业来开发各种系统如,人事管理系统、仓库系统、进存销...
Excel
怎么样用
VBA
做订单录入
答:
一、数据采集系统功能 录入、保存、查询、清空、修改 二、两个界面 1.数据录入界面:前台功能使用界面,实现“录入、保存、查询、清空、修改”;2. 数据存储界面:后台实现数据的保存; 录入界面:三、实现方法 1. 保存功能 Sub Save() ''保存数据 Marco,xiaohou制作,时间2013-9-5 'Dim r1, r2...
excel
里
VBA
编写代码,急急急!
答:
Private Sub CommandButton1_Click() Dim sh As Worksheet, rg As Range, rg0 As Range, rg1 As Range Dim a, i, d, dC, dD, tmp Set d = CreateObject("Scripting.Dictionary") Set dC = CreateObject("Scripting.Dictionary") Set dD = CreateObject("Scripting.Dictionary...
为什么
EXCEL
2010中没有
VBA
工具
答:
office 一贯默认把【开发工具】隐藏起来,要自己通过设置让其显示到菜单中。正版office 都有的,但都默认不显示,要自己设置。
excel
vba
翻译?
答:
Sub 制小表()Dim d As Object '声明变量 Dim ss$, n% '声明变量 Range("A2:H" & [a65536].End(3).Row).Delete Shift:=xlUp '删除A2至A列最后一个非空单元格,到h列的区域,下方单元格上移 m = Sheet1.[d65536].End(xlUp).Row '获取Sheet1d列最后一个非空单元格行号 arr = ...
关于
excel
vba
答:
vba
中的PasteSpecial方法,相当于你的表格中的"编辑-选择性粘贴"操作.你可以试下,先选择一块表格区域,点击"编辑-复制",这块区域的内容就复制进了剪贴板,我们且把它取名叫range1 再在另一个区域(range2),选择"编辑-选择性粘贴",这时就会出现"选择性粘贴"对话框,其中第一区"粘贴"表示要粘贴的内容是...
如何用vb调用
excel
vba
程序
答:
要先创建一个test.xls Sub Btn1_onclick()call OpenWorkbook("Test.xls")End Sub Sub OpenWorkbook(strLocation)Set obj
Excel
= CreateObject("Excel.Application")objExcel.Workbooks.Open strLocation objExcel.Visible = true objExcel.WindowState = xlMinimized objExcel.WindowState = vbMaximized...
excel
中想实现使用Python代替
VBA
,请问应该怎么做
答:
1、首先需要打开
excel
软件,然后利用xlwings替代
VBA
写宏。2、按快捷键z弹出对话,导入xlwings文件。3、然后在与excel文件同目录下新建一个python脚本文件,如图所示的代码进行编写。4、最后,再返回到excel里面,再导入如图所示,可以看到加载宏为VBA,点击运行即可完成操作。
EXCEL
的
VBA
中,SHEETS的CELL和RANGE有什么区别?
答:
1、主体不同 CELLS(y,x)的两个参数分别为行和列。Range()则是指一个区域。2、范围不同 CELLS(y,x)是单个单元格对像。Range()可以是一个单元格,也可以是多个单元格。3、赋值不同 Cells()是对一个单元格赋值。而Range()则可以对一个区域的所有单元格赋值。注意:
VBA
中“Range(cells(y1,x1)...
在
Excel
如何用
VBA
做统计汇总
答:
Sub 查找()Dim arr, dic As Object, i%, RangA As Range Set RangA = Range("g4", "i100")arr = RangA Set dic = CreateObject("Scripting.Dictionary")For i = 1 To UBound(arr)If dic.exists(arr(i, 2)) Then dic(arr(i, 2)) = dic.Item(arr(i, 2)) & "、" & arr(i...
首页
<上一页
9
10
11
12
14
15
16
17
18
下一页
尾页
13
其他人还搜